home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 07 - 1991 / 07.09 Sep 91 / Jorg September Code / CtlWind.test < prev    next >
Encoding:
Text File  |  1991-07-14  |  794 b   |  43 lines  |  [TEXT/MPS ]
  1. need CtlWind
  2.  
  3. ctlWind    WW
  4. hscroll    VV1
  5. vscroll VV2
  6.  
  7. 2 AppleMenu    APPLEMEN
  8. 1 menu        FILEMEN
  9. 6 EditMenu    EDITMEN
  10.  
  11. : 10UP    get: thisCtl 10 - 0 max  put: thisCtl  ;
  12. : 10DN    get: thisCtl 10 +  put: thisCtl  ;
  13.  
  14. Rect temprect
  15.  
  16. : GO
  17.     
  18.     CFAS{ null doDsk } 1 init: appleMen
  19.  
  20.     CFAS{ bye }    2 init: FileMen
  21.  
  22.     CFAS{ null null null null null null } 3 init: EditMen
  23.     
  24.     getnew: appleMen
  25.     getnew: FileMen
  26.     getnew: EditMen
  27.     
  28.     appleMen FileMen EditMen 3 init: menubar
  29.  
  30.     screenbits    true  setGrow: ww
  31.                 true  setZoom: ww
  32.     CFAS{  lnup lndn 10up 10dn null  }  actions: vv1
  33.     CFAS{  lnup lndn 10up 10dn null  }  actions: vv2
  34.     CFAS{  bye null null null  }  actions: ww
  35.     
  36.     0 36 300 200 put: tempRect
  37.     tempRect  " Test"  docWind  true true  new: ww
  38.     vv1 0 20 sethscroll: ww  vv2 0 10 setvscroll: ww
  39.     
  40.     begin key drop again  
  41. ;
  42.  
  43.